]£urocomp LOP-30 



ELEKTRONISCHE RECHENANLAGEN 



Programmbeschreibung 



KATRIX TRANSPONIERUHG | 30. 4 

(Gleitkomnia 24.1) :;• 



Funktion; 

Transponiert eine quadratische Katrix A. Der Speicher fiir die 
Transponierte A kann rait dem fir A iibereinstimmen oder anders 
gewahlt werden. 
Eingabe : 

Die Elements der zu transponieren&en Matrix zeilenweise in 
aufeinanderfolgenden Zellen beginnend mit llo, die Anfangsadresse 
Ko fiir die Transponierte und die Ordnung n der Katrix A. 
Ausgabe : 

Lie Elemente der Transponierten zeilenweise in aufeinanderfol- 
genden Zellen, beginnend mit Ho' . 



Befehlsfolge: 
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Die Zelle a-1 mufi den Befehl E 0000 nur dann enthalten, wenn die 
vorstebenden Befehle von 24.1 interpretiert werden. Die Zal:l n 



30.4-1/2 



In Zelle a+2 gibt die Ordnung von A an (q=15) . 2s kann Ko=Ko' 
sein. 1st iio=Ko' , so euB gelten 

j Mo - Ko' | ^ 2n 2 
Fiir n gilt 1 Si n £L 32 

Spei cherbedarf : 

Der Plan belegt 2 l/2 Spuren unci benutzt keine Zellsn aus 

Spur 63. 



30.4-2/? 



30.4 



bOOOO 'y0O63 'y006l 'y0113 *e0038 'm0051 * 

u0158 'b0063 'uOOZJ • 'y0039 * s006l 't0O39 * 

bO063 *a0050 , u0027 *bOCfc5 'a006o 'U0019 * 

yOCkQ *u0023 'bOOOO * , 0000001 * 10 *yOO»4-5 'bO039 ' aOl^T * 

u003l *y00^5 , y0O39 *y0063 *u0202 «yOOU6 'uOOlO • 

bOOU8 » aOl63 *y0107 •yOlOl 'u0052 • , 0000001 * lvOOOO 'bOOOO *h0062 • 

u00^5 'tOOOO 'hO058 'U0016 'bOOOO 'hOOOO f b0062 • 

bJOOOO 'u0033 ', 0000002 • 'IfOOOO 'b0131 ' a0039 * 

y0119 'y0106 'uOlOl * , 000000^ • 10000000 * • • • 

bOOOO' ' * ' 

bOOOO 'h0152 »u0106 'hOCSl 'U0113 *bOOO0 'hOOOO ' 

U0109 »b0152 *u0119 ' 'xzOOOl 'bOOOO 'hOOOO *vDl$k 'b0058 • 

a01^6 'u0121 'hOOOO 'U0016 »tOCA2 'h0058 , b0063 *eX)lk3 » 

y0063 'y0113 *u0132 'bOllH 'aXXlM 'u0135 * 

xzOOOl 'b0021 • a0lH6 »u01Cfc 'yOllH » a0201 « 

y0223 'uOliU 'y0021 '\i0113 'b0113 'aOOSO' 

u01«*8 'xz0002 'XZ0002 'xz0002 'XZ0002 » 

yO113 , s0021 , t0113 , u01l6 , • , b0112 , aO113 , 

y0222 , u0222 , h0060 , a0l'*5 ^0050*30022 'u0208 'xzOOOl » 

•xzOOOl 'b006l »a0060 »h006l 'b0058 's01^5 'uOOte »h0058 • 

bOOOO 'a0112 'y021^ ' a0112 'yOOte 'bOOOO 'yOll^ * 

a0112 'y0223 *s0063 't0226 , s01^ 'u0225 'bCWOO 'hOOOO ^0128 f t0007 ' 

b006o 'n0058 'm0057 'a0063 »aOlU6 'u0139 ' . 0000000 • 
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